home *** CD-ROM | disk | FTP | other *** search
/ Collection of Tools & Utilities / Collection of Tools and Utilities.iso / tex / rembs1.zip / REMBS.BAS < prev    next >
BASIC Source File  |  1987-03-07  |  1KB  |  53 lines
  1.  
  2. REM This program removes backspaces - chr$(8) - from text files and
  3. REM restores text to it's corrected state for viewing and printing
  4.  
  5. REM rembs.bas -  D.S. Duani 3/87
  6. REM Microsoft QuickBASIC 2.0
  7.  
  8. defint a-z
  9. cline$=command$
  10. length=len(cline$)
  11. max=(length/2)+1
  12. dim arg$(max)
  13.  
  14. gosub argsplit    'get filenames from command line
  15. if num+1<>2 then
  16.     print "Correct syntax is: REMBS oldfile newfile"
  17.     end
  18. end if
  19. open arg$(0) for input as #1
  20. open arg$(1) for output as #2
  21. while not eof(1)
  22.     line input #1,a$
  23.     cnt=1
  24.     b$=string$(len(a$),32)
  25.     for x=1 to len(a$)
  26.         if mid$(a$,x,1)=chr$(8) then
  27.             cnt=cnt-1:if cnt=0 then cnt=1
  28.         else
  29.             mid$(b$,cnt,1)=mid$(a$,x,1)
  30.             cnt=cnt+1
  31.         end if
  32.     next
  33.     print #2,left$(b$,cnt)
  34. wend
  35. close #1:close #2
  36. end
  37.  
  38. argsplit:
  39.     true=-1: false=0
  40.     i=1:num=0:inword=true
  41.     while i <=length
  42.         ch$=mid$(cline$,i,1)
  43.         if ch$<>" " then
  44.             if not inword then inword=true
  45.             arg$(num)=arg$(num)+ch$
  46.         elseif inword then
  47.             num=num+1
  48.             inword=false
  49.         end if
  50.         i=i+1
  51.     wend
  52. return
  53.